SET COLO TO BG+/B,W+/N                                                                                                                                                                                                                                    
CLEAR                                                                                                                                                                                                                                                     

KODEPAT=SPACE(6)

@ 16,3 SAY "PATIENT'S CODE : " GET KODEPAT
READ

abc='REMO ' + KODEPAT

! &abc

